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; Detailed curcens Edit Histor 
0 acettve a 


TA t ppins cine GTAND 
MTHSGTAND_R7 = JSB entry point 
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MTHSGTAN ; G Floating Point Tangent routine 16-SEP-1984 01:32:14 VAX/VMS Macro V04-00 Page 
1-011 ° ° or een 1382 or 33 22 (CMTHRTL.SRCJMTHGTAN.MAR; 1 ° 
-TITLE MTHSGTAN ; G Floa ey Point Tangent routine 
3: (GTAN,GTA 
IDENT /1-011/ 3; File: STHGTAN. MAR EDIT: SBL1011 


MARA RARAARARASAAAAAARSARASAASALALSAEEAA SALAS SASES ERS E SEER REAR RRR REESE ERE E SRE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* ® 
® * 
® ® 
fe gz 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION Of THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. « 
:* * 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AN LD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. > 
:* ® 
** ® 
** * 
:® ® 
:* * 
‘* * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: MATH LIBRARY 
“ABSTRACT: 


MTHS$GTAN is a function which returns the G floating point tangent 
of its G floating point radian argument. The call is standard 
call-by-reference. It JSB to MTHSGTAN_R7. 


MTH$GTAND is a function which returns the G floating point tangent 
of its G floating point degree argument. The call is standard 
catt=aporeterenet. It JSB to MTHSGTAND_R7. 


VERSION: 1 
HISTORY: 
AUTHOR: 
Steven B. Lionel, 12-Jan-79: Version 1 


MODIFIED BY: 
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AX/VMS Macro V04-00 Page 
MTHRTL.SRC rar MTHGTAN.MAR; 1 


~SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 of MTHSGTAN 


as — bs a 


coo NO UEW NFR 


Adapted from MTHS$DTAN version 1-002. 
Handle escent ions Aa tests 
externals. 
Add JSB Pease y Ams ith 16-AUG-1979 
Correct a typo in edit aBS 17-AUG-1979 
Do range check in JSB routine with CMPZV rather than with a pair of 
CMPG's. JAW 16-Oct-197 
inenee Movd to MOVE in JSB routine. JAW 17-Oct-1979 

© CALL use, ba routine. Fix error handling. 
31-0ct-1 
Added degree entry points. RNH 8-MAR-1981 
Modify MIHSGTAN_R? and MTHSGTA ee shi 9 OSB to MTH$GSINCOS_R7 and 
MTHSGSINCOSD_R7~ roa teed of MTH$G ie ba R? 5 Gi weeces _R7, and 
MTHSGSIND_R7, MTHSGCOSD_R7. RNH 
Change shared caneeker Nor all to au wi 25-Sep-81 
Use general mode addressing. SBL 30-Nov-1981 


SBL 15-Jan-79 
and use general addressing for 


MTHSGTAN 
1-011 


00000004 


C1F81A63 ASDCO06C 
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G Floati 
BECLARATIO 


B 8 
a Point Tangent routine 16- 
; Declarative Part of Modul 6- 


-SBTTL DECLARATIONS 


n 
N 


INCLUDE FILES: 
EXTERNAL SYMBOLS: 
-DSABL L 


DS GB 
.EXTRN MTHSGSINCOS 
-EXTRN MTHSGSINCOSD 
“EXTRN MTHSSSIGNA 
TEXTRN MTHSK_FL 
"EXTRN MTHSK7FL 
-EXTRN MTHSSJACKET_ 
: EQUATED SYMBOLS: none 
: MACROS: 
$SFDEF 


PSECT DECLARATIONS: 


G_SMALLEST_DEG: 
LONG  “XASDCOO6C, 


— [DOOD ODOOCOCOC OOO OOOOOOOWDMWMDOMDMc”Mcd ys 
MOOD NAUE WN 9 ODNAU EWN OOO NAU EW OOOon 


-PSECT _MTHSCODE 
102 ; 

: ; OWN STORAGE: none 

: CONSTANTS: 

1 X= 4 

1 

1 

1 

1 


abt 9 1:32:14 VAX/VMS Macro v04-00 
SEP=1984 11:24:22 CMTHRTL.SRCIMTHGTAN.MAR; 1 


; Declarative Part of Module 


; prevent undefineds from becoming 
obal 


R7_ ; & Floating sine cosine routine (radian) 
-R7 ; G Floating sine cosine routine (degree) 
; Math error signal routine 


C 
: 
OOVEMAT ; Overflow error code 
eet) 3; Underflow error code 


3; Define SF (Stack Frame) symbols 


PIC,SHR,LONG, EXE ,NOWRT 
3 program section for math routines 


iPosition of argument from AP. 


“XCIFBIA63 =; 180/pi*2**1024 
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v04-00 
4:2 MTHRTL.SRCJMTHGTAN.MAR; 1 
-SBTTL MTHSGTAN = Standard G Floating GTAN 


; FUNCTIONAL DESCRIPTION: 
; GTAN = G floating point function 
For algorithm, see MTHSGTAN_R7. 
CALLING SEQUENCE: 
gtan.wg.v = MTHSGTAN(X.rg.r) 
INPUT PARAMETERS: 
X.rg.r :Adrress of value of angle in radians. 
IMPLICIT INPUTS: none 
OUTPUT PARAMETERS: 
VALUE: G floating angent of the argument 
IMPLICIT OUTPUTS: none 
COMPLETION CODES: none 
SIDE EFFECTS: 
See MTHSGTAN_R7 


-ENTRY MTHSGTAN, “M<IV, R2, R3, R4, RS, Rb, R7> 


; standard call-by-reference entry 


; disable DV (and FU), enable IV 
MTHSFLAG_JACKET 


MOVAB G*MTHSSJACKET_HND, (FP) } 
3; set handler address to jacket 


; handler 
MOVG aXx(AP), RO ; RO/R1 = argument 
BSBB MTHSGTAN_R7 ; Get the tangent 
RET ; With result in RO-R1 


MTHSGTAN : G 
1-011 MTHS 
00000000'GF 16 
52 53D 
69 1 
50 52 46FD 
05 
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~NOS 


dD 8 
int Tangent routine 16-SEP-19 


+4 
; FUNCTIONAL DESCRIPTION: 
GTAN = JSB entry point 
Algorithmic steps: 
1. Fompute GSIN and GCOS. 
» If GCOS i 
« Return GSIN / GCOS. 
CALLING SEQUENCE: 


MOVG erqusent.. RO 
JSB MTHSGTAN_R7 


INPUT PARAMETERS: 
RO / R1 contains x 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
The result is the tangent of x, 
IMPLICIT OUTPUTS: 
NONE 
SIDE EFFECTS: 
; NONE 


MTHSGTAN_R7: : 
JSB G°MTHSGSINCOS_R7 


TSTG 

BEQL COSZER 
DIVG2 Re, RO 
RSB 
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¢ 91: 
SB entry point 6-SEP=1984 11: 
-SBTTL MTHSGTAN_R7 = JSB entry point 


$ zeree we have an error. 


2:14 YAX/VMS Macr 
4:22 (CMTHRTL.SRCJMTHGTAN.MAR; 1 


in G_floating. 


; entry point 
; Compute GSIN(X), and GCOS(X). 
Is GCOS(X) zero ? 
If zero, error 
Compute GSIN / GCOS 
Return. 


cro V04-00 p | 
age) 


SIDE EFFECTS: 
See MTHSGTAND_R7 


40FC -ENTRY MTHSGTAND, “M<IV, R2, R3, R4, RS, RE, R7> 
7 ; standard call-by-reference entry 
3 3; disable DV (and FU), enable IV 


MTHSFLAG_JACKET 
MOVAB G*MTHSSJACKET_HND, (FP) 
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MTHSGTAN ; G Floating Point Tangent routine 16-SEP-1984 01:32:14 VAX/VMS Macro v04-00 P 
1-011 MTHSGTAND : Standard G Floating GTAND 66-SEP-1984 94:32:35 MTMRTL. SRCIMTHGTAN.MAR: 1 “wr 
g 1 -SBTTL MTHSGTAND = Standard G Floating GTAND 
3 $08 
9 4 ++ 
8 2 5 : FUNCTIONAL DESCRIPTION: 
; 4 : GTAND = G floating point function 
8 | $8 ; For algorithm, see MTHSGTAND_R7. 
0 3 1 ; CALLING SEQUENCE: 
09 3 18 GTAND.wg.v = MTHSGTAND(x.rg.r) 
0029 15 ; INPUT PARAMETERS: 
0029 16 ; 
+i 4 i ; X.rg.r Address of value of angle in degrees. 
00 3 19 : IMPLICIT INPUTS: none 
04 2 321 > OUTPUT PARAMETERS: 
$ ; VALUE: G floating tangent of the argumenc 
$3 : IMPLICIT OUTPUTS: none 
37 : COMPLETION CODES: none 
oe 
3 
338 ; 
34 
235 
236 
23 
$3 
3 


6D Q0000000'GF 9E 


set pendior address to jacket 
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; handler 
50 04 BC SOFD 240 MOVG ax(AP), RO ; RO/R1 = argument 
01 10 241 BSBB MTHSGTAND_R7 ; Get the tangent 
04 242 RET ; With result in RO-R1 


~ 
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.SBTTL MTHSGTAND_R7 = JSB entry point 
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; G 

MTHS ¥ 
ee 
: FUNCTIONAL DESCRIPTION: 
GTAND = JSB entry point 
Algorithmic Stopes 
1. Make sure t as the absolute value of the argument is greater than 
180/pit2e*-1024, otherwise GSIND will underflow. 

¢: Compute GSIND and GCOSD. 
. If GCOSD is zero, we have an error. 
4. Return GSIND / GCOSD. | 
CALLING SEQUENCE: | 
| 


MOVG argument, RO 
JSB MTHSGTAND_R7 


INPUT PARAMETERS: 

RO / R1 contains x 
IMPLICIT INPUTS: | 

NONE | 
OUTPUT PARAMETERS: 

The result is the tangent of x, in G_floating. 
IMPLICIT OUTPUTS: 


Se Sete Se Se Ge Se Be Ge Se Ge Ge Ge Ge Ge Se Be Se Se Se Se Ge Ge Sse Ge Ge Ge Se Se Se Se Sete Se See 


© OO 000009 09 09 09 09 09 09 09 SI NINN NSN NS NSD RP DAP PAA ADA IIIT UTI 
PAN $$ 9 ODA VE WIN  O ODNAUE WN = 0 ODNAU EWN 0 ODNAOUE WN OOONOUSE 
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PED. IIE BB EAI AAAI AIAN AAI AINA ANNAN 
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NONE | 
| 
SIDE EFFECTS: 
NONE 
= 
MTHSGTAND_R7:: | 
52. 50 SOFD MOVG RO, R2 ; Save_argument 
52 8000 8F AA BICW #*x8000, R2 ; R2/R3 = ‘argument: 
52 0070 ar OB CMPW 89 #*X70, R : Compare jarg: with 2**-1017 | 
F 5 BLEQ 208 3; No possible underflow, compute GCOSD 
52 B2 AF ae CMPG G_SMALLEST_DEG, R2 ; Possible underflow, use better test 
g 1 BLEQ 208 ; No possible underflow, compute GCOSD 
53FD TSTG R2 ; Check for arg = 0 ; 
1 12 BNEQ UNFL ; Branch to underflow logic if not zero 
50 7C CLRG RO ; Load RO/R1 with 0 
05 : oe 208 RSB ; Return with value equal zero 
00000000 ' GF 16 38 JSB G*MTHSGSINCOSD_R7 ; Compute GSIND(X) and GCOSD(X). 
5 53D 5 9 TSIG = R2 : Is GCOSD(X) zero ? 
§ 1 9 BEQL COSZER :; If yes. error 
50 2 46FD 9 DIVG2 R2, RO ; Compute GSIND / GCOSD 
05 00 RSB ; Return. 


% —— 7 


G 8 
- 
i a ATHSGIAND_RD ©'JSG entry point = "Gr SEp=1986 81:20:28 EMTMRTL.SREDRTNGTANCMAR:1 29° (8), 


0069 301 | 
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; G Floating Point Tangent routine 16-SEP-1984 01:32:14 VAX/VMS Re cro V04-00 Page 9 
ATHSGTAND_R? - JSB entty point aa ets 9 91:32: MTHRTL.SR rar MTHGTAN.MAR; 1 ° (8) 
9 > 
: 3 COMMON ERROR CODE 
9 - 
69 5 3 
$99 3 ; Underflow; if user has FU set, signal error. Always return 0.0 
069 10 UNFL: 
5 dc oe 11 MOVPSL Re : Re = user’ acket routine's PSL 
00000000 ' GF ? FB § \¢ CALLS #0, G*MTHSSJACKET_TST ; RO = TRUE i#° 5s from jacket routine 
04 4 0 1 BLBC ; branch if user ete og 
52 O04 AD 3 07 14 MOV2WL SFS$W_SAVE_PSW(FP), R2 ; get user PSL save by ALL 
50 3 =—D4 7 15 10$: CLRL RO ; z reoult eressie AL will save in 
tes Yt ; CHFSL_MCH_RO/R1 so any handler gen fixup 
0D 52 06 €1 78 1 BBC #6, R2, 208 : has User Merabled ¢ slesting under f low? 
6— DD O007F 8 PUSHL p ; yes, return PC from special routine 
7E OO°8F 9A Bae! 1 MOVZBL #MTHSK_FLOUNDMAT, -(SP) ; trap code for hardware flo oating underflow | 
085 0 ; convert to MTHS_FLOUNDMAT (32-bit VAX-11 
0085 1 3 exception code)” 
00000000'GF 02 FB 0085 ¢ CALLS #2, G*MTHS$SIGNAL ; signal (condition, PC) 
05 008C 208: RSB ; return 
008D 4 
0080 5 3¢ ; ; 
008D 6 ; COS was zero, so TAN is infinite, signal an error. 
008D 7 ;3- 
008D 328 CoszeR: 
6E DD 008D $3 PUSHL (SP) ; Push “‘caller’’ PC 
7E OO°8F 9A OOBF 330 MOVZBL #MTHSK_FLOOVEMAT, -(SP) ; Condition value 
50 01 OF 79 0093 331 ASHQ wis, aT, ; RO/R1 = reserved operand 
00000000'GF 02 FB 0097 $36 CALLS #2, G*MTHSS$SIGNAL 3; Signal an error 
§ O009E 33 RS : Return to caller 
Baer 334 
O9F 335 


I 8 
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MTHSGTAN 
Symbol table 


COSZER 90000080 R 
G_SMALLEST_DEG 0000000 R 
MTHSSJACKET_HND teeeeene 
MIHSSJACKET_TST eeeeeeee 
niece anak eeeeeere 
MTIHSGSINCOSD R7 seeeeene 
MTHSGSINCOS_R7 = e#eeeeeee 
MTHSGTAN 
0 
i 
02 


TAN_R?7 
MTHSK_FLOOVEMAT eeeeeeee 8 
MTHSK_FLOUNDMAT eeeeeeee 8X 
SFSW_SAVE_PSW = 00000004 
UNFL 000 


00069 R 
= 00000004 
$eewowowececooecne + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. ° 00000000 <( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 00000000 0.) O1¢ 41.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_MTHSCODE QOOOOO9F ¢ 159.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
$ewwwww www ew www owen nen nny 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 33 90:00: 00.09 00:00:01.23 
Command processing $8 Be 28: 0.71 00:00:04.90 
Pass 1 120 0:00:01.43 00:00:06.36 
Sy Peepeart rh SBRER OBB 8BR 
Symbol table output 00:00: 0.0 00:00:00: 
Psect synopsis output 0:00:00.0 00:00:00.05 
Cross-reference output 83:89: 9-8 BF 02 -P8 
Assembler run totals 35 00:00:03.06 0:00:15.40 


The_ working set Limit was 1050 pages. . 

6467 byies (15 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 44 non-local and 3 local symbols. 
95 source Lines were read in Pass 1, producing 16 object records in Pass 2 
pages of virtual memory were used to define & macros. 


oes 


Macro Library name Macros defined 


_$255$DUA28: (SYSLIBISTARLET.MLB; 2 


18 | 
CUSET cro mun seattrice 1 #Fleetoa Pont Tenene rovins "TEAST GRE WANE BESRRIaan "Uh 
| 


88 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHGTAN/OBJ=OBJ$:MTHGTAN MSRC$:MTHJACKET/UPDATE=(ENHS:MTHJACKET) #MSRCS$: 


~z 
or 
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